home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inventor Labs: Technology
/
INVENTORLABS_TECHNOLOGY.BIN
/
pc
/
files
/
shared.cst
/
00023_Script_Score Event Object
< prev
next >
Wrap
Text File
|
1997-07-24
|
5KB
|
187 lines
--o: Score Event Obj
--Instantiated as gScoreEventObj
global gAreaManagerObj, gModeManager, gQTNavMgr, gUtilityObj, gMouseDownExp
----------------------------------------------------------ò
on mInit me
set gMouseDownExp = FALSE
return me
end mInit
----------------------------------------------------------ò
on mWaitForQTandPullOut me, argQTSprite --called from exitframe script
if the movierate of sprite argQTSprite = 1 then
go the frame
else
set the loch of sprite argQTSprite = -1000
sound stop 1
mPlayAmbient( gUtilityObj )
go the frame + 1
mClickEvent(gAreaManagerObj)
end if
end mWaitForQTandPullOut
----------------------------------------------------------ò
on mStopMovAndPullOut me, argQTSprite --called from mouseUp Script
if soundbusy(2) then sound stop 2
if the casttype of cast (the castnum of sprite argQTSprite) = #DigitalVideo then
set the movieRate of sprite argQTSprite = 0 --frame for safe QTVR playback
set the locv of sprite argQTSprite = -1000
updatestage
mPlayAmbient( gUtilityObj )
end if
set the locv of sprite argQTSprite = -1000
updatestage
go the frame + 1
mClickEvent(gAreaManagerObj)
end mStopMovAndPullOut
----------------------------------------------------------ò
on mStopMovGoFrameAndPullOut me, argQTSprite, argFrameLabel
--called if need to go to non-adjacent
if the casttype of cast (the castnum of sprite argQTSprite) = #DigitalVideo then
set the locv of sprite argQTSprite = -1000
set the movieRate of sprite argQTSprite = 0 --frame for save QTVR playback
sound stop 1
updatestage
mPlayAmbient( gUtilityObj )
end if
set the loch of sprite argQTSprite = -1000
updatestage
go frame argFrameLabel
mClickEvent(gAreaManagerObj)
end mStopMovGoFrameAndPullOut
----------------------------------------------------------ò
on mGoFrameAndPullOut me, argFrameLabel
--called if need to go to non-adjacent
sound stop 1
-- mPlayAmbient( gUtilityObj )
go frame argFrameLabel
mClickEvent(gAreaManagerObj)
end mStopMovGoFrameAndPullOut
----------------------------------------------------------ò
on mPullOut me --called from a non-QT frame ---/ temporary measure; unused
mClickEvent(gAreaManagerObj)
cursor -1
end mPullOut
----------------------------------------------------------ò
on mWaitForQTandGoArea me, argQTSprite
if the movieRate of sprite argQTSprite = 1 then go the frame
else
set the locv of sprite argQTSprite = -1000
updatestage
mPlayAmbient( gUtilityObj )
mChangeMode(gModeManager, #Area)
end if
end mWaitForQTandGoArea
----------------------------------------------------------ò
on mStopMovPullOutToArea me, argQTSprite
set the movierate of sprite argQTSprite = 0
set the locv of sprite argQTSprite = -1000
updatestage
mChangeMode(gModeManager, #area)
end mPullOutToArea
----------------------------------------------------------------------------ò
on mPullOutToArea me
sound stop 2
mChangeMode(gModeManager, #area)
end mPullOutToArea
----------------------------------------------------------------------------ò
on mResetQT me, argWhatSprite
sound stop 1
sound stop 2
updatestage
set the movieTime of sprite argWhatSprite = 0
set the movieRate of sprite argWhatSprite = 1
end mResetQT
----------------------------------------------------------------------------ò
on mWaitforQT me, argQTSprite
if the movieRate of sprite argQTSprite = 0 then
set the loch of sprite argQTSprite = -1000
updatestage
mPlayAmbient( gUtilityObj )
go the frame + 1
else
go the frame
end if
end mWaitforQT
----------------------------------------------------------------------------ò
on mWaitForQTandGoFrame me, argQTSprite, argFrameName
if the movieRate of sprite argQTSprite = 0 then
set the locv of sprite argQTSprite = -1000
updatestage
mPlayAmbient( gUtilityObj )
go frame argFrameName
else
go the frame
end if
end mWaitForQTandGoFrame
----------------------------------------------------------------------------ò
on mCloseExplorableStopQTAndPullOut me, argQTsprite
if not gMouseDownExp then
set the locv of sprite argQTsprite = -1000
-- updatestage
mPlayAmbient( gUtilityObj )
mDeactivate(gQTNavMgr)
mClearToolMenu ( gInterfaceMgrObj )
mStopMovAndPullOut(me, argQTsprite)
else set gMouseDownExp = FALSE
end mCloseExplorableAndPullOut
----------------------------------------------------------------------------ò
on mStopMovCloseExpGoFrame me, argQTSprite, argFrameLabel
if the casttype of cast (the castnum of sprite argQTSprite) = #DigitalVideo then
set the movieRate of sprite argQTSprite = 0 --frame for save QTVR playback
set the locv of sprite argQTSprite = -1000
updateStage
mPlayAmbient( gUtilityObj )
end if
mDeactivate(gQTNavMgr)
set the loch of sprite argQTSprite = -1000
updatestage
go frame argFrameLabel
mClickEvent(gAreaManagerObj)
end mStopMovCloseExpGoFrame
----------------------------------------------------------ò